home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacGofer 0.22d / MacGofer Sources / apr3.gs < prev    next >
Encoding:
Text File  |  1994-01-06  |  208 b   |  10 lines  |  [TEXT/MPS ]
  1.  
  2. main     = appendChan stdout (answer 10) exit done
  3.  
  4. answer n = unlines (map (concat . map (pad 8 . show) . worker) [1..n])
  5.  
  6. worker n = take 5 (iterate (n*) n)
  7.  
  8. pad n s  = iterate (' ':) s !! (n - length s)
  9.  
  10.